home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / prefs.dxr / 00056_Tool Box.ls < prev    next >
Encoding:
Text File  |  2000-01-14  |  2.2 KB  |  89 lines
  1. on ScrolltoFixed LibName
  2.   X = the number of castMembers of castLib LibName
  3.   repeat with rc = 1 to the number of castMembers of castLib LibName
  4.     xMember = member(rc, LibName)
  5.     if member(xMember).type = #field then
  6.       member(xMember).boxType = #fixed
  7.     end if
  8.   end repeat
  9.   beep(2)
  10. end
  11.  
  12. on tellloc startsprite, endSprite
  13.   if voidp(endSprite) then
  14.     endSprite = startsprite
  15.   end if
  16.   repeat with rc = startsprite to endSprite
  17.     if the memberNum of sprite rc = 0 then
  18.       put "‚Ä¢‚Ä¢ Blank"
  19.       next repeat
  20.     end if
  21.     put rc, member(the memberNum of sprite rc).name, the loc of sprite rc
  22.   end repeat
  23. end
  24.  
  25. on tellrect startsprite, endSprite
  26.   if voidp(endSprite) then
  27.     endSprite = startsprite
  28.   end if
  29.   repeat with rc = startsprite to endSprite
  30.     if the memberNum of sprite rc = 0 then
  31.       put "‚Ä¢‚Ä¢ Blank"
  32.       next repeat
  33.     end if
  34.     put rc, member(the memberNum of sprite rc).name, the rect of sprite rc
  35.   end repeat
  36. end
  37.  
  38. on number
  39.   xText = EMPTY
  40.   repeat with rc = 1 to 200
  41.     xText = xText & rc & RETURN
  42.   end repeat
  43.   set the text of field "ggg" to xText
  44. end
  45.  
  46. on Jat p1, p2, p3, p4, p5, p6
  47.   put p1, p2, p3, p4, p5, p6
  48. end
  49.  
  50. on Rename sm, em
  51.   fc = 1
  52.   repeat with rc = sm to em
  53.     member(rc, "Text").name = "Resp" & rc & "Textdd"
  54.     fc = fc + 1
  55.   end repeat
  56. end
  57.  
  58. on space xSprite
  59.   xText = member(171, "Text").text
  60.   repeat with rc = 1 to the number of chars in xText
  61.     if char rc to rc + 1 of xText = "  " then
  62.       beginSpace = rc
  63.       xChar = rc
  64.       repeat while char rc of xText = " "
  65.         rc = rc + 1
  66.       end repeat
  67.       endSpace = rc - 1
  68.     end if
  69.   end repeat
  70.   median = beginSpace + integer((endSpace - beginSpace) / 2)
  71.   put median, charPosToLoc(member(171, "Text"), median)
  72. end
  73.  
  74. on RenumberFileNames
  75.   put "Renaming files..."
  76.   filePath = the pathName & "Sounds:Spanish:"
  77.   ext = ".822"
  78.   repeat with rc = 1 to 150
  79.     xNumber = string(rc)
  80.     put chars("000", 1, 3 - length(xNumber)) before xNumber
  81.     newFileName = "120PS" & xNumber & ext
  82.     xNumberedfile = filePath & getNthFileNameInFolder(filePath, rc)
  83.     RenameFile(xNumberedfile, filePath & newFileName)
  84.   end repeat
  85.   put xNumberedfile, newFileName
  86.   beep(2)
  87.   put "done"
  88. end
  89.